(tetris-new-shape): Stop drawing if game is over.

diff --git a/lisp/play/tetris.el b/lisp/play/tetris.el
index 45e5af94ea0c1e1d390fba25ef3e0452f361c89a..53305a08e66b1e257ae09229be75066dd9da2006 100644 (file)
--- a/lisp/play/tetris.el
+++ b/lisp/play/tetris.el
@@ -362,9 +362,9 @@ Element 0 is ignored."
   (setq tetris-pos-y 0)
   (if (tetris-test-shape)
       (tetris-end-game)
-    (tetris-draw-shape))
-  (tetris-draw-next-shape)
-  (tetris-update-score))
+    (tetris-draw-shape)
+    (tetris-draw-next-shape)
+    (tetris-update-score)))
 
 (defun tetris-draw-next-shape ()
   (loop for y from 0 to 3 do